***************************************************
****----			Figure A4	  		   ----****
***************************************************

clear all
cap log close 
set more off

****---- Change directory

global data "/Users/Replication material/Data"

****---- Figure

use "$data/dataset_replication.dta", clear

global controls Capoluogodiprovincia  population_density_1911 expenditures_1912_PC surplus_tot_1912_PC exp_police_hygiene_1912_PC exp_just_secur_1912_PC  exp_edu_1912_PC exp_public_work_1912_PC share_literate share_literate_male share_literate_female share_male


qui reghdfe gini_log quadrimestri18_1_sd quadrimestri18_2_sd quadrimestri18_3_sd quadrimestri19_1_sd quadrimestri19_2_sd $controls, cluster(distretto_FE) absorb(i.Zonaaltimetrica i.N_contribuenti_quartile##i.distretto_FE)
est store reg1

coefplot (reg1, base offset(0) color(black) ciopts(recast(rcap) color(black black) lwidth(*0.75 *1.25))), ///
vertical omitted keep(quadrimestri1*)  yline(0) xline(9, lcolor(gray) lpattern(dash)) ///
ciopts(recast(rcap) color(eltblue eltblue) lwidth(*0.75 *1.25)) ylabel(, angle(horizotal)) xlabel(1 "1918jan-apr" 2 "1918may-aug" 3 "1918sept-dec" 4 "1919jan-apr" 5 "1919may-aug", angle(45))  ///
graphregion(color(white)) msize(small) levels(95 90) ytitle("Gini index (log)") xtitle("WWI victims illness (hometown)") title("") ///
ttext(-.005 1.01 "-.006" 0.0004 2.01 "-.0014" 0.020 3.01 ".018" 0.009 4.01 ".007" 0.004 5.01 ".002", place(se) size(small)) ttext(-.007 1.01 "(.005)" -0.0014 2.01 "(.007)" 0.018 3.01 "(.008)" 0.007 4.01 "(.009)" 0.002 5.01 "(.007)", place(se) size(small))
